home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed6.d64
/
speed spell 8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
12KB
|
289 lines
1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
20 DATA"DESPICABLE","DETERGENT","DIARY","DETERIORATE","DIAPHRAGM","DIETICIAN"
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
111 IFUA=39THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
310 REM PROJECT MANAGER: FRANK WINTER
320 REM PROGRAM NAME: SPEED SPELL 8 ( A NEW UNIT)
330 REM WRITTEN BY: UNKNOWN
340 REM REVISED BY: JAN SAWCZAK"
350 [143] UPDATED BY: BILL CUMBERLAND
360 [143] IF REQUIRED, THE WORD LIST CAN BE"
365 REM MODIFIED TO INCLUDE OTHER WORDS THAT ARE BEING STUDIED.
370 REM CHANGE OR ADD WORDS INTO DATA LINES 1900-2345
375 REM MAXIMUM WORD LENGHT IS SET AT 20 LETTERS.
380 REM TO ACCOMMODATE LONGER WORDS, CHANGE THE VALUE OF 'UL' IN LINE 1380.
385 REM NOTE: DO NOT CHANGE OR DELETE DATA LINE 2350
399 :
400 PRINT"[147]":POKEUT,UL%:POKEUY,15:POKEUX,15:POKE646,9
410 PRINT" [201][206][211][212][210][213][195][212][201][207][206][211] [146]
420 [153]" (null)HIS PROGRAM IS A WORD GAME TO HELP"
430 [153]" YOU PRACTISE CHR$RADE 7 SPELLING WORDS.":[141]591
440 [153]" (null)ATCH THE BRIEF DISPLAY OF EACH WORD.":[141]591
450 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]591
460 [153]" ATNFTER 25 WORDS, YOUR SCORE WILL BE DISPLAYED.
490 GOSUB820:RETURN
499 :
500 REM <YES> SOUND
505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
510 POKE54296,15:POKE54277,42:POKE54278,250
515 POKE54276,23:POKE54273,23:POKE54272,191
520 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
525 POKE54296,0:RETURN
530 REM <NO> SOUND
535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
540 POKE54296,15:POKE54277,18:POKE54278,242
545 POKE54276,33:POKE54273,4:POKE54272,48
550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
555 POKE54296,0:RETURN
560 REM <BLIP> SOUND
565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
570 POKE54296,8:POKE54277,42:POKE54278,250
575 POKE54276,23:POKE54273,23:POKE54272,191
580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
585 POKE54296,0:RETURN
590 FORTM=1TO500:NEXT:RETURN
591 FORTM=1TO1000:NEXT:RETURN
592 FORTM=1TO2000:NEXT:RETURN
595 FORTM=1TO5000:NEXT:RETURN
599 :
800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
801 PRINT" A TPUG EDUCATIONAL PROGRAM ":GOSUB591
802 PRINT" [146]";
803 PRINT" [146]";
804 PRINT" [146]";
805 PRINT" SPEED SPELL 8 [146]";
806 PRINT" [146]";
807 PRINT" [146]";
808 PRINT" [146]":GOSUB591:GOSUB560
809 PRINT" INSTRUCTIONS? Y/N
810 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 810
811 [139]R$[178]"Y"[167] [141] 400
812 [153]"LOAD AND AWAY WE GO!
813 GOSUB591:GOSUB500:GOSUB591
814 GOTO1000
820 GOSUB591:GOSUB560
822 POKEUN,0:PRINTLEFT$(UD$,24);" [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146]"
824 GETUI$:IFUI$<>CHR$(32)THEN824
826 RETURN
830 GOSUB591:GOSUB560
835 POKEUN,0:PRINTLEFT$(UD$,24);"[153] [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE [146][155]"
840 GETUI$:IFUI$<>CHR$(32)THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"[193]NSWER, THEN PRESS [210][197][212][213][210][206][146]
865 UH[178]0:[153]"":[142]
875 [153][200](UD$,24);" ASCIFTEEN SECONDS PLEASE... ":[142]
899 :
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]" "
906 L[178]650:[134] T$(L),A$(30)
909 [142]
910 [141]900:[153]"LOAD "
920 [137]800
999 :
1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
1050 UT$[178]" (null)PEED (null)PELL 7":UP[178]0
1100 [151]UT,UL%:UG$[178]""
1115 [153]"LOAD PEEKEFORE BEGINNING THIS CHR$RADE 7 WORD"
1120 [153]" GAME, DO YOU WISH TO SEE THE WORDS"
1125 [153]" (ALL 427 OF THEM)? (Y/N) ";
1135 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167] 1135
1140 [139]R$[178]"Y"[167]1670
1150 [141]8000:[141]875:UG$[178]"":[140]
1165 T[178].1
1170 J[178]T[172]60:B[178]147
1185 C[178]0
1195 [135] R$
1200 [139] R$[178]"XXX" [167] 1225
1205 C[178]C[170]1
1210 [139] C[177]L [167] [153]"(null)OO MANY WORDS CHANGE LINE 906 SO THAT (null)> NO. OF WORDS"
1215 T$(C)[178]R$
1220 [137] 1195
1225 R[178][187]([171]TI)
1230 R[178][187]([171]TI)
1245 [153]"LOAD ATN WORD WILL BE FLASHED BETWEEN THESE LINES.
1250 PRINT" [215]ATCH CAREFULLY!":GOSUB592
1255 PRINT" ---------
1260 [153]" ---------":[141]560:[141]560:[141]591
1265 [153]" (null)HEN TYPE WHAT YOU SEE.":[141]592
1295 [153]" (null)E'LL START AT";T;"SECONDS.":UP[178]0:UQ[178]0
1315 UQ[178]UQ[170]1:[141] 830
1320 R[178][181](C[172][187](1))[170]1
1325 [139] R[178]P1 [176] R[178]P2 [176] R[178]P3 [167] 1320
1330 [139] R[178]P4 [176] R[178]P5 [167] 1320
1335 [139] UQ[177]NW [167] 1500
1337 UH[178]1:UG$[178]"(null)ORD #":[141]850:[141] 1475
1340 [141]591:[141]560:[141]560
1345 [153][200](UD$,13);[163]20[171]([195](T$(R)))[173]2);
1347 [153]T$(R)
1350 S[178]TI
1355 [139] TI[171]S[179]J [167] 1355
1360 [143]
1365 UP[178]UP[171]1:[141]850
1375 [153]" (null)HAT WAS IT? >>>> ";
1380 US$[178]"":UL[178]20:[141]35:R$[178]UR$
1385 [153]
1390 [139] R$[179][177]T$(R) [167] 1440
1395 [141]500:[153]"SYS (null)HAT'S RIGHT! >>>> "T$(R)" WAITLIST"
1400 CR[178]CR[170]1:J[178]J[171]3
1401 [141] 1800
1405 [139] J[179]1.5 [167] J[178]1.5
1410 [153]
1415 P1[178]P2:P2[178]P3:P3[178]P4:P4[178]P5:P5[178]R
1417 [139] UP[177]9 [167] 1315
1420 [153]" (null)HE NEXT ONE WILL BE DISPLAYED"
1425 [153]" FOR";J[173]60;"SECONDS."
1435 [137] 1315
1440 [141]530:[153]" DEF (null)(null)(null)(null)CHR$! WAIT RIGHT$T WAS -- ":WRO[178]WRO[170]1
1442 [129]FL[178]1[164]11
1444 [153]""[163]16[171]([195](T$(R))[173]2))">>>"[199](18[171]128[172](FL[173]2[178][181](FL[173]2)))" "T$(R)" WAIT<<<ON"
1446 [129]TX[178]1[164]100:[130]:[130]
1448 [153]"LIST":[141] 1800
1450 J[178]J[170]3
1455 [139] [181](J[173]3)[179][177]J[173]3 [167] J[178]3[172][181](J[173]3)
1460 [137] 1410
1475 NQ[178]NQ[170]1
1480 [153]"-----------"
1485 [153]"-----------"
1486 [142]
1500 [151]53280,0:[151]53281,0:[151]646,13:SC[178]CR[173]25[172]100
1510 [153]"LOAD (null)VAL(null)(null)(null)(null)(null) WAIT
1520 PRINT" [217]OUR SCORE IS:";SC;"PER CENT"
1525 PRINT" [206]UMBER OF CORRECT WORDS:";CR
1530 PRINT" [206]UMBER OF WRONG WORDS :";WRO
1535 IF CR=25THENPRINT"[158] [197][216][195][197][204][204][197][206][212]! [146][155]":GOTO1550
1540 IFCR<20THENPRINT"[150] [217]OU MUST TRY HARDER. [155][146]":GOTO1550
1545 PRINT" [199]OOD WORK! [146][155]
1550 [153]"":[141]830
1555 [153]"LOAD (null)OU HAVE A CHOICE:
1560 PRINT" [208]RESS [210] [146] TO REPEAT THIS PROGRAM
1565 [153]" (null)RESS (null) WAIT TO RETURN TO THE MENU
1570 IFR$="R"THENRESTORE:GOTO800
1574 PRINT"[147] [210]ETURNING TO THE DISK [205][197][206][213]
1576 [147]"MENU",8
1578 [138]
1580 [128]
1670 [140]:UG$[178]"EXAMINE WORDS":UP[178]0
1680 [129]A[178]1[164]20
1690 [135]A$(A)
1695 [139]A$(A)[178]"XXX"[167]1710
1700 [130]A
1710 UH[178]1:[141]850
1715 [129]I[178]1[164]A[169]2
1720 [139]A$(I)[178]"XXX"[167][153]:[141]835:[137]1150
1730 [153]"";A$(I);
1740 [139]A$(I[170]1)[178]"XXX"[167][141]835:[137]1150
1750 [153][163]20);A$(I[170]1)
1760 [130]I
1770 [141]835
1785 [137]1680
1800 [153]"(null)OUR SCORE IS "CR"CORRECT"
1810 [153]" "WRO"WRONG"
1820 [142]
2000 [131]"ABBREVIATE","ABRUPT","ABYSS","ACADEMIC","ACCELERATE","ACCLAIM"
2005 [131]"ACCOMMODATE","ACCOMPANY","ADVERTISE","ADVOCATE","ADAMANT","ADDRESSED"
2010 [131]"ACUMEN","ADMISSIBLE","ADMITTANCE","ADOLESCENCE","AERIAL","AEROSOL"
2015 [131]"AFFIDAVIT","AFFILIATE","AFFRONT","ATNFGHAN","ATNFRICA","AGRAVATE","AISLE"
2020 [131]"ALIBI","ALCOHOL","ALIGNMENT","ALLEGIENCE","ALL RIGHT","ANNIVERSARY"
2025 [131]"ANALYSIS","ANKLE","ANECDOTE","APPARATUS","APPENDIX","APPETITE"
2030 [131]"APPRAISE","ARBITRATE","ATNRCTIC","ARCHITECT","ARREARS","ARTERY"
2035 [131]"ASPHALT","ASSASSINATE","ASSOCIATE","ASTRONAUT","ASTHMA","ATHLETIC"
2040 [131]"ATTACHED","ATMOSPHERE","AUDITORIUM","ATNUGUST","AUTUMN","AVALANCHE"
2045 [131]"BACHELOR","BALLISTICS","BANISTER","BARBECUE","BARRACKS","BATTALION"
2050 [131]"BEGINNER","BELIEVER","BEHAVIOUR","BENEFICIARY","BERSERK","BIGOT"
2055 [131]"BOUNDARIES","BANQUET","BISECT","BINARY","BILIOUS","BLITHE","BLUDGEON"
2060 [131]"BRITANNICA","BRIEF","PEEKUDDHA","BROCCOLI","CAFFEINE","CANOE","CALYPSO"
2065 [131]"CANISTER","CARBOHYDRATE","CARBURETOR","CAPSULE","CAROUSE","CARRIAGE"
2070 [131]"CELESTIAL","CEREBRAL","CHAUFFER","CLIENTEL","CITATION","LENHEDDAR"
2075 [131]"CHIVALROUS","CHOLERA","CHIEFTAIN","CHAOS","CHASM","CLOTHES","COGNAC"
2080 [131]"CLAQUE","CLANNISH","COLLOQUIAL","COLUMNIST","COMMODITY","COMMA"
2085 [131]"COMPTROLLER","CONCENTRIC","CONCILIATE","CONCEDE","CONCEIT","CONCLAVE"
2090 [131]"LENONFUCIUS","CONDEMN","CONCOCT","CONSCIENTIOUS","CONSENSUS","CONSTABLE"
2095 [131]"CONNOTE","CONSCIOUS","CONNUBIAL","CONNOISSEUR","COLLEAGUE","COMPASS"
2100 [131]"CONTOUR","CONVERGE","CONVALESCE","CONVERSE","CONVULSE","COOPERATE"
2105 [131]"COORDINATION","CORRUGATED","CORRIDOR","CORPUSCLE","CORRAL","CORONARY"
2110 [131]"DANDRUFF","DEDUCTIBLE","DECIPHER","DELICATESSEN","DELICACY","DEFICIT"
2115 [131]"DENTIFRICE","DEODORANT","DEPRECATE","DERELICT","DERRICK","DESOLATE"
2120 [131]"DESIGNER","DESPISE","DESTINATION","DESTROY","DEVELOPMENT","DIAGRAM"
2125 [131]"DILAPIDATE","DIARY","DILEMMA","DIABETES","DINOSAUR","DIPLOMA"
2130 [131]"DISBURSEMENT","DISCIPLE","DISCIPLINE","DISCOURTEOUS","DISCRIMINATE"
2135 [131]"DISSEMINATE","DISSECT","DISCERN","DISEASE","DUBIOUS","DUPLEX","DWARF"
2140 [131]"DONOR","DOLDRUMS","ECOLOGY","EDUCABLE","ECUMENICAL","ELIXIR","ELVES"
2145 [131]"ELIGIBLE","ELITE","ELLIPSE","ELUCIDATE","EMANATE","EMBLEM"
2150 [131]"ENCYCLOPEDIA","ENMITY","ENSEMBLE","ENUNCIATE","EPICURE","EPITAPH"
2155 [131]"EQUILIBRIUM","EQUINOX","EPOCH","EPIDEMIC","ERRONEOUS","ESCULATOR"
2160 [131]"EXPLICIT","EXONERATE","EXTRAORDINARY","EXCISE","EXCRUCIATE","EXHAUST"
2165 [131]"FABULOUS","FALLACY","FALLIBLE","FATIGUE","FATHOM","FIASCO","FACSIMILE"
2170 [131]"FIBROUS","FEIGN","ASCEBRUARY","FEASIBLE","FLAMMABLE","FRIAR","FOREIGN"
2175 [131]"FRAUGHT","FORFEIT","FORGERY","FRIVOLOUS","FLUORIDE","FUSELAGE"
2180 [131]"GALLON","GARRULOUS","GASEOUS","GENUINE","GHASTLY","GLACIAL"
2185 [131]"GUARANTEE","GROTESQUE","GRIEVANCE","GRUESOME","GUIDANCE","GYROSCOPE"
2190 [131]"HABILITATE","HADDOCK","HALLUCINATE","HALVES","LEFT$AWAII","HEIFER","HOAX"
2195 [131]"HERRING","HERESY","HERITAGE","HIERARCHY","HOWL","HYBRID","HYSTERIA"
2200 [131]"HUMILIATE","HYDRANT","HYDRAULIC","ICEBERG","RIGHT$CELAND","RIGHT$LLINOIS"
2205 [131]"ILLITERATE","IMPINGE","IMMPECCABLE","IMMUNE","IMPEDE","INEFFICIENT"
2210 [131]"INERTIA","INFRARED","INFURIATE","INTERROGATE","RIGHT$SRAEL","INSOLUBLE"
2215 [131]"INTERPOLATE","INTERMITTENT","INTRIGUE","INTSTANTANEOUS","INTERCEPT"
2220 [131]"INVIGORATE","IRIDESCENCE","IRRELEVANCE","IRRIGATE","ISOTOPE","JAGUAR"
2225 [131]"MID$APANESE","JEALOUS","JEOPARDY","JEWELS","JUDICIAL","JUICE","KAYAK"
2230 [131]"KHAKI","LACONIC","LAMINATE","LANGUOR","LARCENY","LEDGER","LAVATORY"
2235 [131]"LEISURE","LEXICON","LEVITATION","LIABILITY","LIKABLE","LIMOUSINE"
2240 [131]"LINOLEUM","LIQUIFY","LITERACY","LOGARITHM","LUBRICATE","MAGISTRATE"
2245 [131]"MAGGOT","MAINTENANCE","MALINGER","MARRIAGE","MASSACRE","MAYONNAISE"
2250 [131]"MATHEMATICAL","(null)EDITERRANEAN","MARTYR","METEOR","MUSCLE","MINIATURE"
2255 [131]"MERRINGUE","MIRAGE","MISSILE","MORGUE","(null)INNESOTA","(null)ASSACHUSETTS"
2260 [131]"(null)ANITOBA","MORTUARY","MYTHICAL","MUNDANE","MUSEUM","MYOPIA"
2265 [131]"MYSTIFY","NAPTHA","NARCOTIC","NEGLIGEE","(null)IAGARA","NEPHEW","NIECE"
2270 [131]"NICKEL","NEGOTIATE","OGRE","OBITUARY","OBSESSION","OCTOPUS","OCULIST"
2275 [131]"OMNIVEROUS","OPAQUE","(null)NTARIO","OYSTER","OXYGEN","ORPHAN","ORCHID"
2280 [131]"OPPRESSOR","OBNOXIOUS","OBLIQUE","OSCILLATE","(null)LYMPIC","OVARY"
2285 [131]"(null)ACIFIC","PACIFY","PARLIAMENTARIAN","PALATABLE","PARAFFIN"
2290 [131]"PARANOIA","PARALYSIS","PERCENTILE","PARENTHESIS","(null)ENNSYLVANIA"
2295 [131]"PERISCOPE","PENNILESS","PERIPHERY","PERMEATE","PERJURY","PEDESTRIAN"
2300 [131]"PERSPIRE","PERVERSE","PHANTO","PLUMBER","POETRY","PORRIDGE","POSSIBLE"
2305 [131]"POMPOUS","PORTFOLIO","PREDECESSOR","PREVALENT","PROFFER","PROCURE"
2310 [131]"PROPRIETOR","PROSECUTE","PROPAGATE","PROTEIN","PSALM","PROTOCOL"
2315 [131]"PROXIMITY","PSUEDONYM","PSYCHOLOGY","PUNCTURE","PURGE","PYRAMID"
2320 [131]"PROTOTYPE","PSEUDO","PULMONARY","PURSUIT","PUTREFY","PUNCTUATE"
2325 [131]"RECIPROCITY","REPELLENT","RESILIENCE","REPLICA","REPRISAL","TEMERITY"
2330 [131]"TEMPLATE","TENUOUS","TERRITORIAL","TOILET","TENDON","TORNADO"
2335 [131]"UNDERWRITER","UNIQUE","UNNECESSARY","VACUUM","VERSATILE","TITILLATE"
2340 [131]"THEATRE","THERAPUTIC","THESIS","(null)UESDAY","(null)ENNESSEE","TOMBSTONE"
2345 [131] "XXX"
8000 [143] NUMBER OF WORDS DISPLAYED
8010 [153]"LOAD (null)HERE WILL BE 25 WORDS.":NW[178]25:[141]591
8020 [153]" (null)ETTING THE STAGE.
8030 RETURN
8100 REM WHC 90:11:29